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DIRECTORY 

AUoDefs: FROM "altodefs", 
SegmentDefs: FROM "segmentdef s"; 

AllocDefs: DEFINITIONS ■ 

BEGIN 

PageNumber: TYPE * Al toDef s .PageNumber; 
PageCount: TYPE = Al toDef s . PageCount ; 
SegmentHandle: TYPE = SegmentDefs .SegmentHandle; 

AllocObject: TYPE « RECORD [ 

avail: PROCEDURE [page: PageNumber. info: Alloclnfo] RETURNS [BOOLEAN], 
status: PROCEDURE [page: PageNumber] 

RETURNS [seg: SegmentHandle, status: PageState], 
update: PROCEDURE [base: PageNumber, pages: PageCount, 

status: PageState, seg: SegmentHandle], 
alloc: PROCEDURE [base: PageNumber, pages: PageCount, 

seg: SegmentHandle, info: Alloclnfo] 

RETURNS [PageNumber]]; 

AllocHandle: TYPE = POINTER TO AllocObject; 

PageState: TYPE = {free, busy, inuse}; 

Alloclnfo: TYPE = RECORD [ 
unused: [0.,777B], 
effort: {hard, easy}, 
direction: {topdown, bottomup}, 
request: {initial, retry}, 
class: {frame, code, table, other}, 
swapunlocked: BOOLEAN, 
compact: BOOLEAN]; 

SetAllocationObject: PROCEDURE [new: AllocHandle] 

RETURNS [old: AllocHandle]; 
GetAllocationObject: PROCEDURE RETURNS [old: AllocHandle]; 

~- Lower Level Segments Allocation 

MakeDataSegment: PROCEDURE [ 

base: PageNumber, pages: PageCount, info: Alloclnfo] 
RETURNS [seg: SegmentDefs .DataSegmentHandle] ; 

DefaultDataSegmentlnfo: Alloclnfo » 

Alloclnfo[0, easy, topdown, initial, other. FALSE, FALSE]; 
Def aul tFrameSegmentlnfo: Alloclnfo « 

Alloclnfo[0, hard, topdown, initial, frame. TRUE. FALSE]; 
Defaul tTableSegmentlnfo: Alloclnfo « 

Alloclnfo[0, hard, topdown, initial, table. TRUE. FALSE]; 

MakeSwappedIn: PROCEDURE [ 

seg: SegmentDefs . FileSegmentHandle, base: PageNumber, info: Alloclnfo]; 

Defaul tFileSegmentlnfo: Alloclnfo » 

Alloclnfo[0, easy, bottomup, initial, other, FALSE, FALSE]; 

-- Swap Strategies and Swapping Procedures: 

SwappingProcedure: TYPE «= 

PROCEDURE [needed: PageCount, info: Alloclnfo. seg: SegmentHandle] 
RETURNS [BOOLEAN]; 

TryCodeSwapping, CantSwap: SwappingProcedure; 
SwapStrategy: TYPE « RECORD [ 

link: POINTER TO SwapStrategy, 

proc: SwappingProcedure]; 

AddSwapStrategy: PROCEDURE [strategy: POINTER TO SwapStrategy]; 
RemoveSwapStrategy: PROCEDURE [strategy: POINTER TO SwapStrategy]; 
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END.. 



